home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_C.d64 / t&t zeichensatz (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  54 lines
  1. 10 :rem================================
  2. 11 :rem  zeichen schnell installieren
  3. 12 :rem  ohne basic-ram verlust
  4. 13 :rem  bildschirm im oberen ram
  5. 14 :rem  zeichen unterm i/o bereich
  6. 15 :rem (freisoft demo/freeware-demo)
  7. 16 :rem    (d.breitinger 2002)
  8. 17 :rem================================
  9. 18 :
  10. 19 :goto1000:
  11. 20 :save"@0:t&t  zeichensatz",8:return:
  12. 21 :goto120:----data poke
  13. 22 :
  14. 100 :rem---zeichensatz aus(l)
  15. 101 :deffn p(a)=peek(209)+peek(210)*256+pos(.):
  16. 103 :::fora=.to255:pokefnp(.),a:print"";:next:print:return:
  17. 104 :
  18. 105 :
  19. 120 :rem---super data-poke (ende:-1)
  20. 121 :c=peek(1):poke56334,.:poke1,51:gosub122:poke1,c:poke56334,1:return:
  21. 122 :fora=.to65535:readb:ifb>=.andb<256then:pokea,b:goto124:
  22. 123 :a=b-1-(b=-1)*66000
  23. 124 :next:return:
  24. 125 :
  25. 126 :
  26. 127 :
  27. 140 :l=24:rem---schirm fuellen(c,l)
  28. 141 :s=59915+(peek(59911)>32)*3:ifl>24then:l=24:
  29. 142 :pokes,c:poke781,l:sys58720:pokes,32:return:
  30. 143 :
  31. 144 :
  32. 150 :rom/ram,schirm(52224)zeichen(53248)
  33. 151 :poke646,peek(53281)
  34. 152 poke56334,.:poke1,51:fori=88to91:pokei,.:next:poke781,97:poke782,.:sys41971
  35. 153 :poke1,53:poke56334,1:poke648,204:sys58692:poke56576,196:poke53272,52
  36. 154 :a=43039:pokea,61:pokea+2,.:pokea+4,62:return:---restore zeile
  37. 155 :
  38. 997 :
  39. 998 :
  40. 999 :
  41. 1000 :rem==============================
  42. 1001 :rem   zeichen-demo
  43. 1002 :rem==============================
  44. 1003 :
  45. 1005 :deffn z(a)=16384*(not(peek(56576))and3)+1024*(peek(53272)and14)+a*8
  46. 1009 :
  47. 1010 :gosub151:rem----zeichen copy
  48. 1012 :print"[147]zeichen-demo:":gosub100
  49. 1013 :print"install":restore:gosub120:
  50. 1014 :print"a=fnz(.):?a:rem---adr."
  51. 1015 :list1100-
  52. 1016 :
  53. 1100 :data53248,,,,,,,51,-1:rem---linie
  54.